Floppyshop 2

home *** CD-ROM | disk | FTP | other *** search

/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0035 / source.bas / patgen.bas (.txt) next >

Wrap

Atari STOS Basic | 1997-04-16 | 34KB | 231 lines

10 VARNAME 100 GOSUB 1000 INK 1010 CENTRE 1020 CENTRE 1030 LOCATE 1040 LOCATE 1050 LOCATE 1060 LOCATE 1070 LOCATE 1080 LOCATE 1090 LOCATE 110 SCREEN COPY 1100 LOCATE 1110 LOCATE 1120 LOCATE 1130 LOCATE 1140 LOCATE 1150 LOCATE 1160 LOCATE 1170 WAIT KEY 1180 SCREEN COPY 1190 ON 120 SET LINE 1200 RETURN 1210 UNKNOWN OP: 0x3A 1220 REM boxes etc 1230 VARNAME 1240 VARNAME 1250 FOR 1260 INK 1270 BOX 1280 VARNAME 1290 IF 130 GOSUB 1300 VARNAME 1310 IF 1320 IF 1330 IF 1340 IF 1350 IF 1360 NEXT 1370 RETURN 1380 UNKNOWN OP: 0x3A 1390 REM TEST FOR A KEYPRESS 140 SCREEN COPY 1400 EXTENSION (Index #2) (Token 0x86) 1410 VARNAME 1420 IF 1430 IF 1440 IF 1450 IF 1460 IF 1470 IF 1480 IF 1490 IF 150 GOSUB 1500 IF 1510 IF 1520 IF 1530 CLEAR KEY 1540 RETURN 1550 UNKNOWN OP: 0x3A 1560 REM rays 1570 SET LINE 1580 FOR 1590 IF 160 SCREEN COPY 1600 IF 1610 IF 1620 INK 1630 POLYLINE 1640 NEXT 1650 UNKNOWN OP: 0x3A 1660 FOR 1670 IF 1680 IF 1690 IF 170 GOSUB 1700 INK 1710 POLYLINE 1720 NEXT 1730 RETURN 1740 UNKNOWN OP: 0x3A 1750 REM CIRCLES 1760 IF 1770 VARNAME 1780 FOR 1790 INK 180 SCREEN COPY 1800 ARC 1810 ARC 1820 IF 1830 IF 1840 IF 1850 NEXT 1860 RETURN 1870 UNKNOWN OP: 0x3A 1880 REM DIAMONDS 1890 VARNAME 190 GOSUB 1900 FOR 1910 VARNAME 1920 IF 1930 VARNAME 1940 IF 1950 IF 1960 IF 1970 INK 1980 POLYLINE 1990 IF 20 MODE 200 SCREEN COPY 2000 IF 2010 IF 2020 NEXT 2030 RETURN 2040 UNKNOWN OP: 0x3A 2050 DEC 2060 ON 2070 RETURN 2080 UNKNOWN OP: 0x3A 2090 REM STARS 210 GOSUB 2100 VARNAME 2110 VARNAME 2120 VARNAME 2130 VARNAME 2140 VARNAME 2150 VARNAME 2160 VARNAME 2170 FOR 2180 IF 2190 IF 220 SCREEN COPY 2200 INK 2210 IF 2220 IF 2230 POLYLINE 2240 VARNAME 2250 IF 2260 IF 2270 IF 2280 IF 2290 NEXT 230 GOSUB 2300 RETURN 240 GOTO 250 UNKNOWN OP: 0x3A 260 REM MOIRE PATTERNS 270 GOSUB 280 GR WRITING 290 UNKNOWN OP: 0x3A 30 RESERVE 300 FOR 310 IF 320 POLYLINE 330 NEXT 340 UNKNOWN OP: 0x3A 350 FOR 360 IF 370 POLYLINE 380 NEXT 390 IF 40 RESERVE 400 UNKNOWN OP: 0x3A 410 REM INCREMENT VARIABLES / CHECK FOR ILLEGAL COORDINATES ETC. 420 VARNAME 430 IF 440 VARNAME 450 IF 460 IF 470 INK 480 UNKNOWN OP: 0x3A 490 REM SUBROUTINE TO ALTER STEP SIZE / COLOUR 50 HIDE 500 IF 510 VARNAME 520 IF 530 FLASH 540 ON 550 RETURN 560 UNKNOWN OP: 0x3A 570 FADE 580 FADE 590 FADE 60 AUTO BACK 600 FADE 610 FADE 620 FADE 630 FADE 640 FADE 650 FADE 660 FADE 670 FADE 680 FADE 690 FADE 70 VARNAME 700 FADE 710 FADE 720 UNKNOWN OP: 0x3A 730 REM SAVE SCREEN 740 SCREEN COPY 750 PAPER 760 LOCATE 770 ON ERROR 780 IF 790 IF 80 UNKNOWN OP: 0x3A 800 GOTO 810 CURS 820 CURS 830 IF 840 HIDE 850 ON 860 RETURN 870 IF 880 UNKNOWN OP: 0x3A 890 REM TITLE & HELP SCREENS 90 VARNAME 900 SCREEN COPY 910 SCREEN COPY 920 FOR 930 ON 940 TIMER 950 VARNAME 960 IF 970 NEXT 980 GOTO 990 MODE